home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / util / simulare.sit / Simula 4.07 Reference / card_43786.txt < prev    next >
Text File  |  1989-05-02  |  878b  |  41 lines
  1. -- card: 43786 from stack: in.07 Reference
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 13647
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=13 top=289 right=311 bottom=97
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Utilities
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 26098
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part contents for background part 2
  29. ----- text -----
  30. Text attributes - character access
  31.  
  32. -- part contents for background part 1
  33. ----- text -----
  34.  
  35. Put or get the character at the current position (error if MORE=False).
  36.  
  37. procedure PUTCHAR(ch); character ch; 
  38.     Change the character at POS to ch, increment POS.
  39.  
  40. character procedure GETCHAR;  
  41.     Return the character at POS, increment POS.